home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
T-COMAL Today
/
(k)td.d64
/
proc.window'down
< prev
next >
Wrap
Text File
|
2007-02-28
|
496b
|
15 lines
0010 //
0020 ╨╥╧├ WINDOW'DOWN(BOTTOM,TOP) ├╠╧╙┼─
0030 ╒╙┼ SYSTEM
0040 ─╔═ SCREEN$ ╧╞ 1505, CHAR$ ╧╞ 3
0050 ╔╞ BOTTOM>0 ┴╬─ BOTTOM<TOP ┴╬─ TOP<26 ╘╚┼╬
0060 B:=(BOTTOM-1)*60; T:=(TOP-1)*60
0070 GETSCREEN(SCREEN$)
0080 SCREEN$(66+B:T+65):=SCREEN$(6+B:T+6)
0090 BACK'COLOR:=╧╥─(SCREEN$(2))
0100 CHAR$:=" "+├╚╥$(BACK'COLOR+BACK'COLOR*16)
0110 ╞╧╥ ROW#:=6+B ╘╧ 63+B ╙╘┼╨ 3 ─╧ SCREEN$(ROW#:ROW#+2):=CHAR$
0120 SETSCREEN(SCREEN$)
0130 ┼╬─╔╞
0140 ┼╬─╨╥╧├ WINDOW'DOWN